home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
as02.arc
/
MAKDIR.ASM
< prev
next >
Wrap
Assembly Source File
|
1984-10-11
|
1KB
|
38 lines
re_name equ 39h ;Rename a file function call
doscall equ 21h ;DOS interrupt number
cseg segment 'CODE' ;define code segment
;---------------------------------------------------------------------
assume cs:cseg
public makdir
makdir proc far ;main part of program
;set up stack for return
push bp ;save for return
mov bp,sp ;set base for passed names
push ds ;save old data segment
push es ;save for return
;MAIN PART OF PROGRAM.
;DX points to path to directory
mov si,[bp+6] ;get address of second parameter
mov ax,[si+2] ;get actual address of string
mov dx,ax ;location of old name put in DX
mov ah,re_name ;rename function number
int doscall ;Call DOS
pop es
pop ds
pop bp
ret 2 ;return to calling program
; ( parameter passed)
makdir endp ;end of main part of program
;---------------------------------------------------------------------
cseg ends ;end of code segment
;*********************************************************************
end ;end of assembly